AMOSTRA DE ARTIGOS CIENTÍFICOS

ANÁLISE DOS TEMAS

CRESCIMENTO DOS TEMAS

PRODUTIVIDADE DOS AUTORES

# Geração de Dados de Produtividade dos Autores:
curva_lotka <- lotka(resultado)

curva_lotka_observada <- tibble::as_tibble(curva_lotka[["AuthorProd"]]) %>% 
  dplyr::rename('Articles' = N.Articles,
                'Authors' = N.Authors,
                'Observed' = Freq)

curva_lotka_teorica <- tibble::as_tibble(10^(log10(curva_lotka$C)-2*log10(curva_lotka$AuthorProd[,1]))) %>% 
  dplyr::rename('Theoretical' = value)


lotka_consolidado <- cbind(curva_lotka_observada, 
                           curva_lotka_teorica) %>% 
  dplyr::mutate(Observed = round(as.numeric(Observed), 4),
                Theoretical = round(as.numeric(Theoretical), 4)) %>% 
  dplyr::select(!Authors) %>% 
  tidyr::pivot_longer(-Articles,
                      names_to = 'Type',
                      values_to = 'Value')


# Gerando Gráfico de Produtividade dos Autores:
grafico_lotka <- lotka_consolidado %>% 
  ggplot(mapping = aes(x = Articles, y = Value, color = Type)) + 
  geom_line(size = 0.5) +
  geom_point(size = 1.5) +
  labs(color = '', 
       x = 'Articles', 
       y = 'Freq. of Authors') + 
  theme(legend.position = 'bottom')

grafico_lotka

# Beta coefficient estimate
#L$Beta
# Constant
#L$C
# Goodness of fit
#L$R2
# P-value of K-S two sample test
#L$p.value